home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 46 / Amiga Format CD46 (1999-10-20)(Future Publishing)(GB)[!][issue 1999-12].iso / -in_the_mag- / reader_requests / scilab / demos / graphics / xdemo.dem.pos < prev   
Text File  |  1999-09-16  |  568b  |  29 lines
  1. mode(-1)
  2. getf('SCI/demos/graphics/xdemo-1.dem');
  3.  
  4. deff('[]=xdemo(info,str)','execstr(str)');
  5.  
  6. oldln=lines()
  7. lines(0)
  8. deff('[]=demoex(num)',['select num,';
  9.      'case 1 then xdemo1()';
  10.      'case 2 then xdemo2()';
  11.      'case 3 then xdemo3()';
  12.      'case 4 then xdemo4()';'end']);
  13.  
  14. demolist=[
  15. 'X11 Graphics 1','xdemo1()';
  16. 'X11 Graphics 2','xdemo2()';
  17. 'X11 Graphics 3','xdemo3()';
  18. 'X11 Graphics 4','xdemo4()']
  19.  
  20. driver("Rec");
  21. for i=1:4,
  22.     xset("window",0)
  23.     demoex(i)
  24.     xbasimp([0],'xtest'+string(i),1);
  25.     xs2fig([0],'xtest'+string(i)+'.fig');
  26.     xbasc(0);
  27. end
  28.  
  29.